How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/egyptw.dir/01703_Script_Food

Text File | 1995-09-13 | 12KB | 484 lines

global gBeenClicked, gQuest

on EFoodRollovers1
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      repeat while rollover(6)
        EgyptCursor
        set the locH of sprite 12 to 452
        set the locV of sprite 12 to 311
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            AnimateLoopFast 6, 339, 2, "SE180201.AIF", 6
          end if
        end if
      end repeat
      set the locH of sprite 12 to 952
      updatestage
    else
      if rollover(7) or rollover(8) then
        repeat while rollover(7) or rollover(8)
          EgyptCursor
          set the locH of sprite 11 to 251
          set the locV of sprite 11 to 329
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              MilkCow
            end if
          end if
        end repeat
        set the locH of sprite 11 to 951
        updatestage
      else
        if rollover(9) or rollover(10) then
          repeat while rollover(9) or rollover(10)
            EgyptCursor
            set the locH of sprite 16 to 529
            set the locV of sprite 16 to 313
            updatestage
            if the mousedown then
              set GBeenClicked = 1
            else
              if gBeenClicked = 1 then
                Cooking
              end if
            end if
          end repeat
          set the locH of sprite 16 to 929
          updatestage
        else
          if rollover(13) then
            repeat while rollover(13)
              ArrowCursor
              set the locH of sprite 14 to 452
              set the locV of sprite 14 to 320
              updatestage
            end repeat
            set the locH of sprite 14 to 952
            updatestage
          else
            if rollover(40) then
              HandCursor
            else
              if rollover(41) then
                HandCursor
              else
                if rollover(42) then
                  HandCursor
                else
                  ArrowCursor
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end


on EFoodRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      repeat while rollover(6)
        EgyptCursor
        puppetsprite 19, true
        set the locH of sprite 19 to 155
        set the locV of sprite 19 to 306
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              FoodWineMusic
              exit repeat
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 19 to 955
      puppetsprite 19, false
      updatestage
    else
      if rollover(7) then
        repeat while rollover(7)
          EgyptCursor
          set the locH of sprite 18 to 295
          set the locV of sprite 18 to 315
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              repeat while gBeenClicked = 1
                BlowBees
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 18 to 995
        updatestage
      else
        if rollover(17) then
          ArrowCursor
          repeat while rollover(17)
            set the locH of sprite 20 to 317
            set the locV of sprite 20 to 222
            updatestage
          end repeat
          set the locH of sprite 20 to 917
          updatestage
        else
          if rollover(39) then
            HandCursor
          else
            if rollover(41) then
              HandCursor
            else
              if rollover(42) then
                HandCursor
              else
                ArrowCursor
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on MilkCow
  ArrowCursor
  set gAnimationcast = 341
  set gAnimationcast2 = 343
  set count = 0
  set cowhead = 1
  set animating = 1
  repeat while count < 4 and (the mouseUP)
    if animating = 1 then
      set the castnum of sprite 8 = gAnimationcast + 1
      puppetsound "MilkCow2.AIFF"
      updatestage
      wait .5
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      if cowhead = 1 then
        set the castnum of sprite 7 = gAnimationcast2 + 1
        updatestage
        wait .3
        if (the mousedown) then
          set animating = 0
          exit repeat
        end if
        set the castnum of sprite 7 = gAnimationcast2
        updatestage
        wait .3
        set cowhead = 0
      else
        set cowhead = 1
      end if
      set the castnum of sprite 8 = gAnimationcast
      updatestage
      puppetsound 0
      wait .3
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      set count = count + 1
    end if
  end repeat
  set the castnum of sprite 7 = gAnimationcast2
  set the castnum of sprite 8 = gAnimationcast
  puppetsound 0
  updatestage
  set gBeenClicked = 0
end

on Cooking
  ArrowCursor
  set gAnimationcast1 = 350
  set gAnimationcast2 = 345
  set count = 0
  set animating = 1
  puppetsound "SE181701.AIF"
  repeat while count < 2 and (the mouseUP)
    if animating = 1 then
      set the castnum of sprite 9 = gAnimationcast1 + 1
      set the castnum of sprite 10 = gAnimationcast2 + 1
      updatestage
      wait .2
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      set the castnum of sprite 9 = gAnimationcast1
      set the castnum of sprite 10 = gAnimationcast2 + 2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite 10 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 9 = gAnimationcast1 + 1
      set the castnum of sprite 10 = gAnimationcast2 + 1
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 9 = gAnimationcast1
      set the castnum of sprite 10 = gAnimationcast2 + 2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite 10 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite 10 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite 10 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set count = count + 1
    end if
  end repeat
  set the castnum of sprite 10 = gAnimationcast2
  set the castnum of sprite 9 = gAnimationcast1
  updatestage
  puppetsound 0
  set gBeenClicked = 0
end


on FoodWineMusic
  ArrowCursor
  set gCast1 = 558
  puppetsprite 9, true
  puppetsprite 10, true
  puppetsprite 11, true
  puppetsprite 12, true
  set count = 0
  repeat while count < 2 and (the mouseUP)
    set the locH of sprite 11 to 490
    set the locV of sprite 11 to 247
    updatestage
    wait .8
    if (the mousedown) then
      exit repeat
    end if
    puppetsound "SE181001.AIF"
    set the locH of sprite 9 to 326
    set the locV of sprite 9 to 261
    set the locH of sprite 10 to 398
    set the locV of sprite 10 to 263
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 11 to 862
    set the locH of sprite 12 to 262
    set the locV of sprite 12 to 308
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gcast1 + 1
    set the locH of sprite 9 to 826
    set the locH of sprite 10 to 898
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gcast1 + 2
    set the locH of sprite 12 to 862
    set the locH of sprite 9 to 326
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 12 to 262
    set the locH of sprite 9 to 826
    set the locH of sprite 10 to 398
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gcast1 + 1
    set the locH of sprite 12 to 862
    set the locH of sprite 9 to 326
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the castnum of sprite 8 = gcast1
    set the locH of sprite 9 to 826
    set the locH of sprite 10 to 898
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 9 to 326
    set the locH of sprite 10 to 398
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 12 to 262
    set the locH of sprite 9 to 826
    set the locH of sprite 10 to 898
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 9 to 326
    set the locH of sprite 10 to 398
    set the locH of sprite 12 to 862
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 12 to 262
    set the locH of sprite 9 to 826
    set the locH of sprite 10 to 898
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if

    set the locH of sprite 9 to 326
    set the locH of sprite 10 to 398
    set the locH of sprite 12 to 862
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if
    set count = count + 1
  end repeat
  set the castnum of sprite 8 = gcast1
  set the locH of sprite 12 to 862
  set the locH of sprite 11 to 890
  set the locH of sprite 9 to 826
  set the locH of sprite 10 to 898
  updatestage
  puppetsound 0
  set gBeenClicked = 0
end

on BlowBees
  puppetsound "SE180601.AIF"
  puppetsprite 13, true
  repeat while gBeenClicked = 1 and (the mouseup)
    set the locH of sprite 13 = 129
    set the locV of sprite 13 = 317
    updatestage
    if not(soundBusy(1)) then
      exit repeat
    end if
    if (the mousedown) then
      exit repeat
    end if
  end repeat
  set the locH of sprite 13 = 929
  updatestage
  puppetsprite 13, false
  puppetsound 0
  set gBeenClicked = 0
end